home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr28 / par300.zip / EXAMPL07.POM < prev    next >
Text File  |  1995-04-07  |  501b  |  23 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Replace every tab character with two spaces
  7. ;
  8. CHANGE   $FLINE  $TAB  "  "
  9. ;
  10. ;   Extract the columns
  11. ;
  12. SET      ProgName = $FLINE[ 1 20]
  13. SET      Descrip  = $FLINE[22 99]
  14. ;
  15. ;   Trim the spaces
  16. ;
  17. TRIM     ProgName  "B"  " "
  18. TRIM     Descrip   "B"  " "
  19. ;
  20. ;   Output the result
  21. ;
  22. OUTEND   |"{ProgName}","{Descrip}"
  23.